1 REM \*2025 La cripta de Elmion ***MARIANO CHIAVERANO***
2 LET mt=0: LET r$="opqa1"
5 BORDER 0: PAPER 0: INK 7: CLS : LET cc=0: PRINT AT 10,4;"AGUARDE, CARGANDO EL JUEGO": GO SUB 9000
6 GO SUB 1600
10 CLS : LET x=2: LET y=2: LET i=0: LET d=0: LET a=0: LET pc=0: LET ox=8: LET oxp=7: LET tm=0: LET res=0: LET xx=x: LET yy=y: LET pd=0: LET p=0: LET s=1: LET cr=0: LET es=0: LET m=0: LET pr=0: LET pt=0: LET p$="\a\b\c\d\e\f\s\t"
15 PRINT AT 0,23; INK 5;"\u\u\{b1}\u\{b0}\u\u\u\u\u\u";: PRINT AT 16,23; INK 5;"\u\u\u\u\u\u\u\{b1}\u\{b0}\u": FOR i=1 TO 15: PRINT AT i,23;"\{i5}\t\{i0}\::\::\::\::\::\::\::\{i5}\t\{i7}": NEXT i
17 PRINT AT 1,24; INK 7; PAPER 0;"\p\p\p\p\p\p\p";: PRINT AT 4,26; INK 5; PAPER 0; BRIGHT 1;"\g 9";AT 6,26; INK 6;"\h 0";AT 8,26; INK 1;"\j 0";AT 10,26; INK 7;"\q 0"
20 GO SUB 7000
40 PRINT AT y,x;"\s"
53 IF x<=4 AND y<=4 THEN LET res=0
54 IF x>=4 OR y>=4 THEN LET res=1
60 LET k$=INKEY$
63 IF k$="" THEN GO SUB 200: GO TO 53
64 IF k$="0" THEN GO TO 6
65 IF k$=r$(1) THEN LET p=0: LET tm=tm+2: LET x=x-1: LET i=NOT i: GO SUB 500: GO TO 150
75 IF k$=r$(2) THEN LET p=0: LET tm=tm+2: LET x=x+1: LET d=NOT d: GO SUB 500: GO TO 155
85 IF k$=r$(4) THEN LET p=0: LET tm=tm+2: LET y=y+1: LET a=NOT a: GO SUB 500: GO TO 165
95 IF k$=r$(3) THEN LET p=0: LET tm=tm+2: LET y=y-1: LET a=NOT a: GO SUB 500: GO TO 165
100 IF k$=r$(5) AND p=1 THEN LET pd=pd+1: LET pc=pc+1: GO SUB 200: PRINT AT 6,28;"  ";AT 6,28; BRIGHT 1;pd: BEEP 0.01,32: PRINT AT y,x;p$(7): IF pc>8 THEN LET pc=0: LET p=0: PRINT AT yp,xp;" ": BEEP .1,-10: BEEP .1,-12: PRINT AT 6,25;" "
110 GO TO 190
150 IF i=0 THEN PRINT AT yy,xx;" ";AT y,x;p$(1): GO TO 190
152 PRINT AT yy,xx;" ";AT y,x;p$(2): GO TO 190
155 IF d=0 THEN PRINT AT yy,xx;" ";AT y,x;p$(3): GO TO 190
157 PRINT AT yy,xx;" ";AT y,x;p$(4): GO TO 190
165 IF a=0 THEN PRINT AT yy,xx;" ";AT y,x;p$(5): GO TO 190
175 PRINT AT yy,xx;" ";AT y,x;p$(6)
190 BEEP 0.01,-20: BEEP 0.01,-10: LET xx=x: LET yy=y
198 GO TO 50
210 IF res=1 THEN LET tm=tm+1: IF tm>=15 THEN LET ox=ox-1: LET tm=0: BEEP 0.01,ox: PRINT AT 4,28; PAPER 0;"   ";AT 4,28; BRIGHT 1;ox
220 IF ox=3 THEN PRINT AT 1,3; INK 5; BRIGHT 1;"\g": PRINT AT 4,25; PAPER 2; INK 7;"!"
225 IF ox<1 THEN LET m=1: GO SUB 1000: RETURN 
230 RETURN 
510 LET t=ATTR (y,x)
525 IF t<64 THEN RETURN 
530 IF t=71 THEN LET x=xx: LET y=yy: RETURN 
532 IF t=66 AND es>0 THEN LET es=es-1: BORDER 2: BEEP .1,-10: BEEP .1,-20: BORDER 0: PRINT AT 10,28; PAPER 0;"   ";AT 10,28; INK 7; BRIGHT 1;es: RETURN 
533 IF t=66 AND es<=0 THEN LET m=2: GO SUB 1000
535 IF t=64 THEN LET pr=pr+6: PRINT AT 12,26;"     ";AT 12,26; INK 7; BRIGHT 1;"\k ";pr;"%": GO SUB 850: RETURN 
545 IF t=69 THEN LET res=0: PRINT AT 4,25;" ": FOR i=ox TO oxp: LET ox=ox+1: BEEP .01,i: PRINT AT 4,28; PAPER 0;"   ";AT 4,28; INK 7; BRIGHT 1;ox: NEXT i: RETURN 
555 IF t=70 THEN BEEP .1,40: BEEP .1,45: LET xp=x: LET yp=y: LET x=xx: LET y=yy: LET p=1: RETURN 
565 IF t=197 THEN LET oxp=oxp+5: BEEP .01,30: BEEP .01,35: LET pt=pt+oxp: RETURN 
575 IF t=78 THEN GO SUB 750: RETURN 
577 IF t=121 THEN GO SUB 765: RETURN 
580 IF t=65 THEN LET cr=cr+1: BEEP .01,44: BEEP .01,55: PRINT AT 8,28;"  ";AT 8,28; INK 1; BRIGHT 1;cr: RETURN 
585 IF t=67 THEN BEEP 0.1,25: BEEP 0.1,25: BEEP 0.2,30: LET es=es+1: LET pt=pt+5: PRINT AT 10,28; PAPER 0;"   ";AT 10,28; INK 7; BRIGHT 1;es: RETURN 
590 IF t=68 THEN BEEP 0.1,10: GO SUB 3000
650 RETURN 
755 LET n$= SCREEN$ (y,x): LET n=VAL n$: IF pd>=n THEN LET pd=pd-n: BEEP .1,-5: BEEP .1,0: PRINT AT 6,28;"  ";AT 6,28;pd: PRINT AT 6,25;" ": RETURN 
760 IF pd<n THEN PRINT AT 6,25;" ";AT 6,25; PAPER 2; INK 7;"!": LET x=xx: LET y=yy: BORDER 6: BEEP 1,-15: BORDER 0: RETURN 
765 LET n$= SCREEN$ (y,x): LET n=VAL n$: IF cr>=n THEN LET cr=cr-n: BEEP .1,25: BEEP .1,10: PRINT AT 8,28;"  ";AT 8,28; INK 1; BRIGHT 1;cr: PRINT AT 6,28;"  ";AT 6,28; BRIGHT 1;pd: PRINT AT 8,25;" ": RETURN 
770 IF cr<n THEN PRINT AT 8,25;" ";AT 8,25; PAPER 2; INK 7;"!": LET x=xx: LET y=yy: BORDER 1: BEEP 1,-15: BORDER 0: RETURN 
855 IF y=2 AND x=5 THEN GO SUB 7030: RETURN 
865 IF y=5 AND x=2 THEN GO SUB 7045: RETURN 
875 IF y=8 AND x=2 THEN GO SUB 7062: RETURN 
885 IF y=10 AND x=8 THEN GO SUB 7075: RETURN 
895 IF y=5 AND x=10 THEN GO SUB 7090: RETURN 
900 IF y=13 AND x=12 THEN GO SUB 7115: RETURN 
910 IF y=15 AND (x=7 OR x=2) THEN GO SUB 7160: RETURN 
920 IF y=16 AND x=10 THEN GO SUB 7179: RETURN 
925 IF y=18 AND x=13 THEN GO SUB 7190: RETURN 
930 IF y=13 AND x=21 THEN GO SUB 7215: RETURN 
940 IF y=9 AND x=12 THEN GO SUB 7210: RETURN 
945 IF y=6 AND x=17 THEN PRINT AT 2,14; INK 7; BRIGHT 0;" ": RETURN 
1000 REM muerte
1010 PRINT AT yy,xx;" ": FOR i=7 TO 1 STEP -1: PRINT AT y,x; INK i; BRIGHT 1;"\s": BEEP .1,-i: NEXT i
1020 LET pt=pt+pr+es+pd+cr: CLS : IF m=1 THEN PRINT AT 10,5; INK 2;"LO SIENTO, HAS MUERTO";AT 14,2; INK 7;"Te has quedado sin oxigeno \{i5}\g\{i7}";AT 15,0;"Intenta volver antes a la sala 1";AT 18,2; PAPER 0;"\k Porcentaje recorrido: ";pr;"%";AT 20,5;"Puntos adquiridos: ";pt
1025 IF m=2 THEN PRINT AT 10,5; INK 2;"LO SIENTO, HAS MUERTO";AT 14,5; INK 7;"No caigas en \{i2}\r\{i7} sin \q";AT 18,2; PAPER 0;"\k Porcentaje recorrido: ";pr;"%";AT 20,5;"Puntos adquiridos: ";pt
1028 PRINT AT 8,0; INK 7;"\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p";AT 12,0;"\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p"
1030 IF INKEY$<>"" THEN LET m=0: GO TO 10
1040 GO TO 1030
1505 CLS : PRINT AT 1,0;"\{i5}\g\{i7} OXIGENO:Aparece en la primera","sala cuando quedan 3 unidades.","Recarga tu oxigeno": PRINT AT 5,0;"\{i6}\h\{i7} ORO:Colocate al lado y","presiona minar para extraer.","Sirve para abrir puertas \{i0p6}X\{p0i7}": PRINT AT 9,0;"\{i1}\j\{i7} CRISTALES: Sirven para abrir","puertas de cristal \{p1i7}X\{p0i7}": PRINT AT 12,0;"\{i3}\q\{i7} ESPADA: Cada una mata un \{i2}\r\{i7}": PRINT AT 14,0;"\{f1}\g\{f0i7} Aumenta capacidad de oxigeno": PRINT AT 16,0;"\{i7}Presta atancion a los pasajes","ocultos que pueden aparecer.": PRINT AT 18,0;"\{i7}En la primera sala no se","descuenta el oxigeno.": PRINT AT 21,2; INVERSE 1;"Lee el manual para + info"
1515 PRINT #0; FLASH 1;"SUERTE!-PRESIONA 1 PARA SEGUIR"
1540 IF INKEY$="1" THEN GO TO 1600
1548 GO TO 1540
1550 STOP 
1602 CLS : INK 7: PLOT 2,13: DRAW 64,44: PLOT 67,55: DRAW 12,2: PLOT 81,57: DRAW 49,-35: PLOT 105,42: DRAW 31,18: PLOT 137,59: DRAW 17,-11: PLOT 217,116: PLOT 173,143: PLOT 97,122: PLOT 161,106: PLOT 26,91: PLOT 12,154
1605 PLOT 157,74: DRAW 0,-73: DRAW 77,0: DRAW 0,73: DRAW -77,0: PLOT 189,26: DRAW 0,-25: DRAW 16,0: DRAW 0,25: DRAW -16,0: PLOT 159,65: DRAW 76,0: PLOT 158,53: DRAW 76,0: PLOT 158,42: DRAW 76,0: PLOT 159,29: DRAW 74,0: PLOT 158,16: DRAW 32,0: PLOT 206,16: DRAW 28,0: PLOT 174,74: DRAW -1,-9: PLOT 196,73: DRAW 0,-8: PLOT 221,74: DRAW 0,-11: PLOT 221,74: DRAW 0,-11: PLOT 186,64: DRAW 0,-11: PLOT 166,64: DRAW 0,-11: PLOT 210,64: DRAW 0,-11: PLOT 229,64: DRAW 0,-11: PLOT 177,52: DRAW 0,-10: PLOT 199,53: DRAW 1,-12: PLOT 219,53: DRAW 0,-12: PLOT 166,42: DRAW 0,-13: PLOT 188,42: DRAW 0,-15: PLOT 188,42: DRAW 0,-15: PLOT 210,41: DRAW 0,-13: PLOT 227,40: DRAW 0,-12: PLOT 174,29: DRAW 0,-14: PLOT 221,28: DRAW 0,-13: PLOT 165,16: DRAW 0,-16: PLOT 181,16: DRAW 0,-15: PLOT 214,15: DRAW 0,-12: PLOT 230,14: DRAW 0,-11: PLOT 192,26: DRAW 1,-26: PLOT 192,26: DRAW 1,-26: PLOT 116,0: DRAW 41,10: PLOT 234,28: DRAW 21,19: PLOT 139,0: DRAW 17,6: PLOT 237,22: DRAW 17,10: PLOT 238,7: DRAW 15,9
1607 PLOT 45,135: DRAW 13,0: PLOT 46,134: DRAW 11,0: PLOT 46,133: DRAW 11,0: PLOT 47,132: DRAW 9,0: PLOT 49,131: DRAW 5,0: PLOT 45,136: DRAW 13,0: PLOT 45,137: DRAW 13,0: PLOT 45,138: DRAW 13,0: PLOT 45,139: DRAW 13,0: PLOT 46,140: DRAW 11,0: PLOT 46,141: DRAW 11,0: PLOT 47,142: DRAW 9,0: PLOT 49,143: DRAW 5,0
1610 GO SUB 9400: PRINT AT 21,19; INK 7; BRIGHT 1;"\h\h";AT 16,27; INK 2;"\r";AT 21,24; INK 7; BRIGHT 1;"\e"
1611 GO SUB 9420: PRINT AT 3,9; INK 7; BRIGHT 1;"LA CRIPTA DE";AT 4,9;"\a \b \c \d \e \f": PRINT AT 21,0; INK 7;"\s\t\u\s\t\u\t\s\s\t\s\s\s\t\u\t\s\s\s";AT 21,29;"\s\s\s";AT 2,24;"\h \i";AT 5,25;"\h";AT 7,28;"\i": GO SUB 9400: PRINT #0;"\* 2025 MemSoftware - ZX Spectrum": IF mt=0 THEN GO SUB 2015
1612 INK 5: PRINT AT 7,4;"\u\{b1}\u\u\u\u\u\u\u\u\{b0}\u\u\u\u\u\u\u\u\u": PRINT AT 8,4;"\t                \t": PRINT AT 9,4;"\t 1\oNUEVO JUEGO  \t": PRINT AT 10,4;"\t 2\oAYUDAS       \t": PRINT AT 11,4;"\t 3\oREDEFINIR    \t": PRINT AT 12,4;"\t                \t": PRINT AT 13,4;"\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u"
1620 IF INKEY$="1" THEN CLS : PRINT AT 1,0; INVERSE 1;"RECARGA OXIGENO";AT 2,0; INVERSE 0;"Puedes hacerlo en sala 1 cuando \g=3 o menos";AT 5,0; INK 6; INVERSE 1;"MINA ORO";AT 6,0; INVERSE 0;"\h Te servira para abrir puertas";AT 8,0; INK 1; BRIGHT 1; INVERSE 1;"TOMA CRISTALES";AT 9,0; INVERSE 0;"\j Te serviran para abrir puertas";AT 11,0; INK 3; BRIGHT 1; INVERSE 1;"TOMA ESPADAS";AT 12,0; INVERSE 0;"\q Cuidalas lo que mas puedas";AT 13,0;"Puedes matar \{i2}\l\m\r\{i3} con ellas";AT 16,0; BRIGHT 1; INK 7; INVERSE 1;"Lee el manual para + info": PAUSE 0: RETURN 
1625 IF INKEY$="2" THEN GO SUB 1500
1628 IF INKEY$="3" THEN GO TO 8000
1640 GO TO 1620
2020 LET mt=1: FOR z=1 TO 2: BEEP 0.2,0: BEEP 0.2,-7: BEEP 0.1,-35: PAUSE 15: BEEP 0.2,-2: BEEP 0.2,-7: BEEP 0.1,-35: PAUSE 15: BEEP 0.2,-4: BEEP 0.2,-9: BEEP 0.1,-35: PAUSE 15: BEEP 0.2,-9: BEEP 0.2,-7: PAUSE 15: BEEP 0.2,0: BEEP 0.2,-5: BEEP 0.2,-7: BEEP 0.1,-35: BEEP 0.1,-25: BEEP 0.1,-35: BEEP 0.1,-25: BEEP 0.1,-25: PAUSE 15: NEXT z
2029 RETURN 
3005 INK 0: FOR a=0 TO 175 STEP 8: PLOT 0,0: DRAW 255,a: BEEP .01,a/3: NEXT a
3006 FOR a=175 TO 0 STEP -8: PLOT 255,175: DRAW -255,-a: BEEP .01,a/3: NEXT a
3010 CLS : LET pr=100: LET pt=pt+pr+es+pd+cr: PRINT AT 0,0; INK 2;"\::\::\::\:'\':\::\::\::\::\::\::\::\::\::\::\::\::\:'\':\::\::\::\::\::\::\::\::\::\::\::\::\::";AT 1,0;"\''\::\::\  \  \':\::\::\::\::\::\:'\  \':\::\::\::\' \  \':\::\::\':\::\::\::\::\::\::\::\' ";AT 2,1;"\ '\: \  \  \  \::\::\''\::\:'\  \  \  \::\::\' \  \  \  \':\: \ '\::\::\::\::\  \':\' ";AT 3,6;"\ '\:'\  \ '\  \  \  \  \ '\:'\  \  \  \  \  \' \  \ '\::\::\: ";AT 4,24;"\ :\::";AT 5,25;"\' ";
3020 PRINT AT 5,2; INK 6; FLASH 1;"FELICIDADES!, LO HAS LOGRADO";AT 10,1; FLASH 0; INK 7;" Elmion ha sobrevivido a los   ";" peligros mortales de la cripta.";AT 17,2; PAPER 1; INK 7;"\k Porcentaje recorrido: ";pr;"%";AT 20,5;"Puntos adquiridos: ";pt
3028 PRINT AT 8,0; INK 7;"\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p";AT 13,0;"\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p"
3100 BEEP 0.2,-9: BEEP 0.2,-9: BEEP 0.2,-2: PAUSE 25: BEEP 0.2,-9: BEEP 0.2,-9: BEEP 0.2,-2: PAUSE 25: BEEP 0.2,-2: BEEP 0.2,0: BEEP 0.2,1: PAUSE 25: BEEP 0.2,1: BEEP 0.2,0: BEEP 0.2,-4: BEEP 0.2,-2
3115 PRINT #0; FLASH 1;"    PRESIONA 1 PARA REGRESAR    "
3120 IF INKEY$="1" THEN GO TO 6
3125 GO TO 3120
7020 PRINT PAPER 0; INK 7;AT 0,0; BRIGHT 1;"\i\i\i\i\i";AT 1,0;"\i";AT 2,0;"\i";AT 3,0;"\i";AT 4,0;"\i";AT 4,1;"\i";AT 4,3;"\i";AT 4,4;"\i";AT 3,4;"\i";AT 0,1;"\i";AT 0,2;"\i";AT 0,3;"\i";AT 0,4;"\i";AT 1,4;"\i"
7022 PRINT AT 2,5; PAPER 0; INK 0; BRIGHT 1;"\::";AT 5,2;"\::": PRINT AT 4,2; INK 6; PAPER 1; BRIGHT 1;"\::";AT 4,2; OVER 1;"3"
7025 RETURN 
7035 PRINT PAPER 0; INK 7; BRIGHT 1;AT 2,6;"\i";AT 0,5;"\i";AT 0,6;"\i";AT 0,7;"\i";AT 0,8;"\i";AT 0,9;"\i";AT 1,9;"\i";AT 2,9;"\i";AT 3,9;"\i";AT 4,9;"\i";AT 4,5;"\i";AT 4,6;"\i";AT 4,7;"\i";AT 4,8;"\i"
7037 PRINT PAPER 0; INK 7; BRIGHT 1;AT 4,10;"\i";AT 4,11;"\i";AT 4,12;"\i";AT 4,13;"\i";AT 4,14;"\i";AT 3,14;"\i";AT 2,14;"\i";AT 0,14;"\i";AT 0,10;"\i";AT 0,11;"\i";AT 0,12;"\i";AT 0,13;"\i"
7038 PRINT AT 3,8; INK 6; BRIGHT 1;"\h": PRINT AT 1,8; INK 2; BRIGHT 1;"\l"
7040 RETURN 
7050 PRINT PAPER 0; INK 7; BRIGHT 1;AT 5,0;"\i";AT 6,0;"\i";AT 7,0;"\i";AT 7,1;"\i";AT 7,3;"\i";AT 7,4;"\i";AT 6,4;"\i";AT 5,4;"\i"
7055 PRINT AT 8,2; PAPER 0; INK 0; BRIGHT 1;"\::": PRINT AT 8,8; INK 5; FLASH 1; BRIGHT 1;"\g": PRINT AT 7,2; INK 6; PAPER 1; BRIGHT 1;"\::";AT 7,2; OVER 1;"4": PRINT AT 6,1; INK 2; BRIGHT 1;"\r": PRINT AT 6,3; INK 3; BRIGHT 1;"\q"
7060 RETURN 
7065 PRINT PAPER 0; INK 7; BRIGHT 1;AT 8,0;"\i";AT 9,0;"\i\i\i\i\i";AT 10,0;"\i";AT 11,0;"\i";AT 12,0;"\i";AT 12,1;"\i";AT 12,2;"\i";AT 12,3;"\i";AT 12,4;"\i";AT 12,5;"\i";AT 12,6;"\i";AT 12,7;"\i";AT 7,5;"\i";AT 7,6;"\i";AT 7,7;"\i";AT 8,7;"\i";AT 9,7;"\i";AT 11,7;"\i"
7068 PRINT AT 10,8; PAPER 0; INK 0; BRIGHT 1;"\::": PRINT AT 11,1; INK 6; BRIGHT 1;"\h"
7069 PRINT AT 9,5; INK 2; BRIGHT 1;"\r";AT 11,2;"\r";AT 11,6;"\r";AT 8,1;"\r": PRINT AT 10,7; INK 1; PAPER 7; BRIGHT 1;"\::";AT 10,7; OVER 1;"1": PRINT AT 8,3; INK 1; BRIGHT 1;"\j";AT 11,8;"\j";AT 11,3;"\j"
7070 RETURN 
7080 PRINT AT 4,5; INK 7; BRIGHT 1;"\i";AT 4,6;"\i\i\i\i\i\i";AT 1,14;"\i": PRINT PAPER 0; INK 7; BRIGHT 1;AT 6,9;"\i";AT 7,9;"\i";AT 8,9;"\i";AT 9,9;"\i";AT 10,9;"\i";AT 11,9;"\i";AT 12,9;"\i";AT 12,8;"\i"
7082 PRINT AT 5,10; PAPER 0; INK 0; BRIGHT 1;"\::"
7084 PRINT AT 5,13; INK 5; FLASH 1; BRIGHT 1;"\g": PRINT AT 7,10; INK 6; BRIGHT 1;"\h": PRINT AT 3,10; INK 1; BRIGHT 1;"\j";AT 1,10;"\j": PRINT AT 3,12; INK 3; BRIGHT 1;"\q": PRINT AT 2,9; INK 6; PAPER 1; BRIGHT 1;"\::";AT 2,9; OVER 1;"9": PRINT AT 4,6; INK 6; PAPER 1; BRIGHT 1;"\::";AT 4,6; OVER 1;"5": PRINT AT 7,12; INK 1; PAPER 7; BRIGHT 1;"\::";AT 7,12; OVER 1;"2"
7085 RETURN 
7095 PRINT PAPER 0; INK 7; BRIGHT 1;AT 7,14;"\i";AT 6,14;"\i";AT 5,14;"\i";AT 1,14;"\i";AT 4,10;"\i";AT 4,11;"\i";AT 4,12;"\i";AT 4,13;"\i";AT 4,14;"\i";AT 3,14;"\i";AT 2,14;"\i";AT 0,14;"\i";AT 0,10;"\i";AT 0,11;"\i";AT 0,12;"\i";AT 0,13;"\i";AT 8,10;"\i";AT 8,11;"\i";AT 8,13;"\i";AT 8,14;"\i"
7096 PRINT AT 5,11; INK 2; BRIGHT 1;"\r";AT 5,12;"\r";AT 6,12;"\r";AT 7,13;"\r"
7098 PRINT AT 9,12; PAPER 0; INK 0; BRIGHT 1;"\::";AT 13,12;"\::"
7100 RETURN 
7120 PRINT PAPER 0; INK 7; BRIGHT 1;AT 13,14;"\i";AT 13,10;"\i";AT 14,14;"\i";AT 14,13;"\i";AT 14,12;"\i";AT 14,11;"\i";AT 14,10;"\i";AT 14,9;"\i";AT 14,8;"\i";AT 14,6;"\i";AT 14,5;"\i";AT 14,4;"\i";AT 14,3;"\i";AT 14,1;"\i";AT 13,0;"\i";AT 14,0;"\i";AT 12,3; BRIGHT 0;" "
7122 PRINT AT 15,2; PAPER 0; INK 0; BRIGHT 1;"\::";AT 15,7;"\::": PRINT AT 13,2; INK 6; PAPER 1; BRIGHT 1;"\::";AT 13,2; OVER 1;"6": PRINT AT 13,7; INK 1; PAPER 7; BRIGHT 1;"\::";AT 13,7; OVER 1;"2": PRINT AT 13,13; INK 6; BRIGHT 1;"\h": PRINT AT 13,1; INK 3; BRIGHT 1;"\q";AT 13,9;"\q": RETURN 
7135 PRINT PAPER 0; INK 7; BRIGHT 1;AT 0,15;"\i";AT 0,16;"\i";AT 0,17;"\i";AT 0,18;"\i";AT 0,19;"\i";AT 1,19;"\i";AT 2,19;"\i";AT 3,19;"\i";AT 3,18;"\i";AT 3,16;"\i";AT 3,15;"\i"
7150 PRINT PAPER 0; INK 7; BRIGHT 1;AT 0,22;"\i";AT 1,22;"\i";AT 2,22;"\i";AT 3,22;"\i";AT 4,22;"\i";AT 5,22;"\i";AT 6,22;"\i";AT 7,22;"\i";AT 8,22;"\i";AT 9,22;"\i";AT 10,22;"\i";AT 11,22;"\i";AT 12,22;"\i";AT 13,22;"\i";AT 14,22;"\i";AT 14,15;"\i";AT 14,16;"\i";AT 14,17;"\i";AT 14,18;"\i";AT 14,19;"\i";AT 14,20;"\i";AT 14,21;"\i"
7155 RETURN 
7165 PRINT PAPER 0; INK 7; BRIGHT 1;AT 15,0;"\i";AT 16,0;"\i";AT 17,0;"\i";AT 18,0;"\i";AT 19,0;"\i";AT 20,0;"\i";AT 18,1;"\i";AT 19,1;"\i";AT 20,1;"\i";AT 20,2;"\i";AT 20,3;"\i";AT 19,3;"\i";AT 19,4;"\i";AT 19,5;"\i";AT 19,6;"\i";AT 20,6;"\i";AT 20,7;"\i";AT 20,8;"\i";AT 20,9;"\i";AT 19,9;"\i";AT 18,9;"\i";AT 17,9;"\i";AT 15,9;"\i";AT 15,5;"\i";AT 16,5;"\i";AT 17,5;"\i\i";AT 18,5;"\i"
7167 IF x=7 THEN PRINT AT 16,10; PAPER 0; INK 0; BRIGHT 1;"\::": PRINT AT 16,9; INK 6; PAPER 1; BRIGHT 1;"\::";AT 16,9; OVER 1;"4": PRINT AT 19,7; INK 6; BRIGHT 1;"\h"
7174 IF x=2 THEN PRINT AT 16,4; INK 2; BRIGHT 1;"\r";AT 16,2;"\r";AT 17,2;"\r": PRINT AT 19,2; INK 3; BRIGHT 1;"\q": PRINT AT 18,2; INK 1; BRIGHT 1;"\j\j"
7178 RETURN 
7180 PRINT PAPER 0; INK 7; BRIGHT 1;AT 20,10;"\i\i\i";AT 19,12;"\i";AT 17,12;"\i";AT 16,12;"\i";AT 15,12;"\i"
7182 PRINT AT 18,13; PAPER 0; INK 0; BRIGHT 1;"\::": PRINT AT 18,9; INK 5; BRIGHT 1;"\g": PRINT AT 19,10; INK 2; BRIGHT 1;"\r";AT 16,11;"\r";AT 19,11;"\r": PRINT AT 15,11; INK 3; BRIGHT 1;"\q"
7185 RETURN 
7192 GO SUB 7145
7195 PRINT PAPER 0; INK 7; BRIGHT 1;AT 20,13;"\i\i\i\i";AT 19,16;"\i";AT 17,16;"\i";AT 15,16;"\i";AT 18,16;"\i"
7197 PRINT PAPER 0; INK 7; BRIGHT 1;AT 18,17;"\i";AT 18,18;"\i";AT 19,18;"\i";AT 19,19;"\i";AT 19,20;"\i";AT 18,20;"\i";AT 18,21;"\i";AT 18,22;"\i";AT 17,22;"\i";AT 16,22;"\i";AT 16,21;"\i";AT 15,21;"\i";AT 19,17;"\i";AT 20,17;"\i";AT 20,18;"\i";AT 20,19;"\i";AT 20,20;"\i";AT 20,21;"\i";AT 19,21;"\i";AT 19,22;"\i";AT 20,22;"\i";AT 15,22;"\i"
7198 PRINT AT 15,21; PAPER 0; INK 7;" ";AT 14,21;" ": PRINT AT 13,21; PAPER 0; INK 0; BRIGHT 1;"\::": PRINT AT 16,13; INK 2; BRIGHT 1;"\m\r";AT 18,15;"\r\r\r";AT 19,13;"\r\r\r": PRINT AT 15,13; INK 1; BRIGHT 1;"\j\j": PRINT AT 18,18; INK 3; BRIGHT 1;"\q": PRINT AT 17,21; INK 6; BRIGHT 1;"\h"
7200 RETURN 
7212 PRINT PAPER 0; INK 7; BRIGHT 1;AT 12,10;"\i";AT 12,11;"\i";AT 12,13;"\i";AT 12,14;"\i";AT 9,14;"\i";AT 10,14;"\i";AT 11,14;"\i"
7213 PRINT AT 12,12; INK 1; PAPER 7; BRIGHT 1;"\::";AT 12,12; OVER 1;"2": RETURN 
7220 PRINT PAPER 0; INK 7; BRIGHT 1;AT 7,15;"\i";AT 2,11;"\o";AT 7,16;"\i";AT 7,18;"\i";AT 7,19;"\i";AT 6,19;"\i";AT 5,19;"\i";AT 4,19;"\i";AT 0,15;"\i";AT 0,16;"\i\i\i\i\i\i\i";AT 1,19;"\i";AT 2,19;"\i";AT 3,19;"\i";AT 3,18;"\i";AT 3,16;"\i";AT 3,15;"\i"
7232 PRINT AT 18,9; INK 5; BRIGHT 1;"\g": PRINT AT 7,17; INK 6; PAPER 1; BRIGHT 1;"\::";AT 7,17; OVER 1;"7": PRINT AT 3,17; INK 1; PAPER 7; BRIGHT 1;"\::";AT 3,17; OVER 1;"4": PRINT AT 6,17; PAPER 0; INK 0; BRIGHT 1;"\::": PRINT AT 3,21; INK 1; BRIGHT 1;"\j";AT 4,21;"\j";AT 5,21;"\j": PRINT AT 8,17; INK 2; BRIGHT 1;"\r\r\r\r\r";AT 10,15;"\r\r\r\r\r\r\r";AT 9,15;"\r\r\r\r";AT 12,15;"\r\r\r\r\r\r\r";AT 13,17;"\r\r\r";AT 8,15;"\m";AT 11,20;"\r\r": PRINT AT 4,18; INK 3; BRIGHT 1;"\q";AT 6,15; INK 3; BRIGHT 1;"\q": PRINT AT 2,12; INK 4; BRIGHT 1;"\n": PRINT AT 8,19; INK 5; BRIGHT 1;"\g": PRINT AT 11,12; INK 3; BRIGHT 1;"\q"
7255 RETURN 
8015 CLS : LET r$="": PAUSE 10
8020 PRINT AT 0,14; INK 7; PAPER 1;"\oOTROS COMANDOS";AT 0,0;"REDEFINIR";AT 2,14; PAPER 0;"\o PRESIONA 0 EN";AT 3,14;"EL JUEGO PARA";AT 4,14;"VOLVER AL MENU.": PLOT 95,168: DRAW 0,-99: PRINT AT 2,0; INK 7;"\a Izq>";: GO SUB 8070: PRINT INK 7;T$
8030 PRINT AT 4,0; INK 7;"\c Der>";: GO SUB 8070: PRINT INK 7;T$
8040 PRINT AT 6,0; INK 7;"\e^Arr>";: GO SUB 8070: PRINT INK 7;T$
8050 PRINT AT 8,0; INK 7;"\e Aba>";: GO SUB 8070: PRINT INK 7;T$
8055 PRINT AT 10,0; INK 7;"\h Minar>";: GO SUB 8070: PRINT INK 7;T$
8060 GO TO 1600
8070 LET T$=INKEY$
8080 IF T$="" THEN GO TO 8070
8090 LET r$=r$+T$
8100 IF INKEY$=T$ THEN GO TO 8100
8120 RETURN 
9000 RESTORE 9001: FOR F=58880 TO 58880+167: LET cc=cc+(cc<50): PRINT AT 12,14;cc;"%": READ A: POKE F,A: NEXT F
9010 DATA 56,108,60,8,62,73,52,2,56,108
9020 DATA 60,8,62,73,22,32,28,54,60,16
9030 DATA 124,146,28,32,28,54,60,16,124,146
9040 DATA 104,4,56,56,56,16,124,146,40,8
9050 DATA 56,56,56,16,124,146,40,32,26,254
9060 DATA 218,184,184,184,56,56,40,2,64,2
9070 DATA 16,42,117,255,119,119,119,0,221,221
9080 DATA 221,0,24,60,78,223,255,126,60,24
9090 DATA 208,232,4,40,83,131,92,32,146,237
9100 DATA 45,50,29,5,7,1,111,146,110,104
9110 DATA 152,112,64,192,255,193,193,193,193,193
9120 DATA 255,255,8,12,14,255,255,14,12,8
9130 DATA 126,24,90,60,102,126,24,0,192,224
9140 DATA 113,58,30,10,31,35,153,126,189,24
9150 DATA 60,90,165,66,62,42,62,28,62,73
9160 DATA 54,34,86,110,86,110,86,110,86,110
9170 DATA 0,255,170,85,170,255,255,0
9200 RESTORE 9201: FOR F=59048 TO 59048+167: LET cc=cc+(cc<100): PRINT AT 12,14;cc;"%": READ A: POKE F,A: NEXT F
9210 DATA 60,254,194,192,57,251,194,124,224,96
9220 DATA 96,96,97,99,127,127,195,99,231,231
9230 DATA 189,189,153,153,255,255,24,24,24,24
9240 DATA 255,255,127,254,99,67,195,103,126,254
9250 DATA 1,99,227,243,211,219,207,199,127,200
9260 DATA 190,166,234,186,166,126,0,0,102,85
9270 DATA 137,0,0,0,10,21,0,80,168,0
9280 DATA 54,73,129,193,195,227,99,118,60,28
9290 DATA 7,6,6,6,134,198,254,254,199,198
9300 DATA 198,198,198,198,254,254,254,225,192,223
9310 DATA 219,201,227,254,24,28,52,36,102,126
9320 DATA 194,131,129,195,239,126,56,24,48,112
9330 DATA 248,254,195,195,195,207,222,240,252,134
9340 DATA 134,188,224,184,140,135,60,254,194,192
9350 DATA 56,248,192,192,0,0,8,12,76,126
9360 DATA 255,255,0,0,16,48,50,126,255,255
9370 DATA 73,199,86,253,122,126,255,255
9375 RETURN 
9410 POKE 23675,0: POKE 23676,230: RETURN 
9425 POKE 23675,168: POKE 23676,230: RETURN 

